home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / tjgold.zip / INSTALL.003 / DEMFS1.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-29  |  2KB  |  45 lines
  1. {--------------------------------------------------------------------------}
  2. {                Product: TechnoJock's Turbo Toolkit GOLD                  }
  3. {                                                                          }
  4. {                     TTT GOLD - DEMO PROGRAM                        }
  5. {                                                                          }
  6. {                Copyright 1986-1995  TechnoJock Software, Inc.            }
  7. {                           All Rights Reserved                            }
  8. {                          Restricted by License                           }
  9. {--------------------------------------------------------------------------}
  10.  
  11. {Description: DEMFS1.PAS
  12.               Illustrates the screen writing functions in
  13.               the GoldFast unit.
  14. }
  15.  
  16. Program DemoFastOne;
  17.  
  18. {$I GOLDFLAG.INC}
  19.  
  20. uses DOS,CRT, GoldMisc, GoldFast, GoldAttr;
  21.  
  22. begin
  23. {$IFOPT D+}
  24.    HeapRecord;
  25. {$ENDIF}
  26.    ClrScr;
  27.    WriteCenter(1,YellowOnRed,'TechnoJock''s Turbo Toolkit-Gold');
  28.    WriteCenter(2,YellowOnRed,'Write Demo One');
  29.    WriteAT(5,5,LightGreenOnBlack,'Written using WriteAT');
  30.    WriteHi(5,7,WhiteOnBlue,CyanOnBlue,'Written with the ~WriteHi~ method');
  31.    WriteRight(80,9,YellowOnBlack,'Written with WriteRight');
  32.    WriteCap(5,11,WhiteOnCyan,BlueOnCyan,'Written with WriteCap');
  33.    WriteCap(5,13,WhiteOnCyan,BlueOnCyan,'also written with WriteCap');
  34.    WriteVert(40,5,LightRedOnBlack,'WriteVert');
  35.    WriteBetween(1,40,15,LightGreenOnBlack,'Left Half');
  36.    WriteBetween(41,80,15,LightGreenOnBlack,'Right Half');
  37.    WritePlain(5,17,'This is written with WritePlain');
  38.    WriteClick(33,24,WhiteOnBlack,'That''s all Folks!');
  39.    repeat until keypressed;
  40.    GotoXY(1,25);
  41. {$IFOPT D+}
  42.    HeapCheck;
  43. {$ENDIF}
  44. end.
  45.